home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / TCalc-V5_0.lzx / TurboCalcCD / Deutsch / TurboCalc installieren < prev    next >
Encoding:
Text File  |  1997-10-23  |  11.5 KB  |  425 lines
  1.  
  2. ; ---------------------------------------------------------------------
  3. ;
  4. ; $VER: TurboCalc Installer Script 5.0 (10.10.97)
  5. ;
  6. ; Script to install TurboCalc (german, english, italian and french version)
  7. ;
  8. ; ---------------------------------------------------------------------
  9.  
  10. (if (<> @language "english")
  11.  ((if ( AND (<> @language "deutsch")
  12.             (AND (<> @language "français") (<> @language "italiano"))
  13.       )
  14.     (set @language "english")
  15.   )
  16.  )
  17. )
  18.  
  19.  
  20. ; ---------------------------------------------------------------------
  21. ;
  22. ;   STRINGS (Global)
  23. ;
  24. ; ---------------------------------------------------------------------
  25.  
  26. (set #TurboCalcPattern "(TurboCalc|TCLibs)")
  27. (set #TCSupPattern "(Toolbar|AutoOpen|Catalogs)")
  28. (set #ProgrammerPattern "Programmer")
  29. (set #PSFontPattern "PSFonts")
  30.  
  31.  
  32.  
  33. ; ---------------------------------------------------------------------
  34. ;
  35. ;   STRINGS (German)
  36. ;
  37. ; ---------------------------------------------------------------------
  38.  
  39. (if (= @language "deutsch")
  40.  (
  41.   (set #SourceDir "TurboCalcCD:Deutsch/TurboCalc")
  42.   (set #TCLocalePattern "(AutoÖffnen|Lies.Mich|Inhalt)")
  43.   (set #ExamplePattern "(Tabellen#?|Tutorium|ARexx|Extras|Vorlagen)")
  44.   (set #HelpDir "Hilfe")
  45.   (set #HelpDirOS2 "Hilfe_OS2")
  46.   (set #AutoOpenDir "AutoÖffnen" )
  47.   (set #MacroOS2Help "Tabellen3/Makro_Hilfe_mit_OS2_h.TCD" )
  48.  
  49.  
  50.   (set #AskDestDir
  51.    (cat "Bitte wählen Sie das Verzeichnis, in dem TurboCalc "
  52.         "installiert werden soll. "
  53.         "Es wird automatisch ein neues Verzeichnis 'TurboCalc' "
  54.         "für das Programm und die Daten angelegt." )
  55.   )
  56.   (set #AskDestDirHelp
  57.    (cat "Für die Installation werden auf dem Ziellaufwerk mindestens "
  58.         "1,5 Mbyte freier Speicherplatz benötigt.\n\n"
  59.         "Das Installationsprogramm erstellt in dem ausgewählten "
  60.         "Pfad ein neues Verzeichnis 'TurboCalc'. Alle Dateien "
  61.         "werden in dieses Verzeichnis kopiert.\n\n"
  62.         "Sie können nach der Installation dem Verzeichnis natürlich "
  63.         "einen anderen Namen geben." )
  64.   )
  65.   (set #WhichPartsPrompt
  66.    (cat "Bitte wählen Sie aus, welche der folgenden optionalen "
  67.         "Komponenten Sie installieren möchten" )
  68.    )
  69.   (set #WhichPartsHelp
  70.    (cat "Versehen Sie die Komponenten, die Sie auf Ihre Festplatte "
  71.         "installieren möchten, mit einem Haken.\n\n"
  72.         "Online-Hilfe: Installiert die AmigaGuide-Dateien zu TurboCalc "
  73.         "(empfehlenswert). Alternativ können die Dateien auch direkt "
  74.         "von der CD geladen werden.\n\n"
  75.         "PS-Fonts: Einige Postscript-Zeichensätze, die für TurboCalcs "
  76.         "Postscrip-Ausgabe verwandt werden kann.\n\n"
  77.         "Beispiele: Installiert alle Beispiele und Vorlagen\n\n" )
  78.    )
  79.   (set #WhichPart1 "Online-Hilfe")
  80.   (set #WhichPart2 "Beispiele")
  81.   (set #WhichPart3 "PS-Fonts")
  82.   (set #WhichPart4 "Programmierer-Informationen (nur in englisch)")
  83.  
  84.  )
  85. )
  86.  
  87. ; ---------------------------------------------------------------------
  88. ;
  89. ;   STRINGS (English)
  90. ;
  91. ; ---------------------------------------------------------------------
  92.  
  93. (if (= @language "english")
  94.  (
  95.   (set #SourceDir "TurboCalcCD:English/TurboCalc")
  96.   (set #TCLocalePattern "(Read.Me|Contents)")
  97.   (set #ExamplePattern "(Sheets#?|Tutorial|ARexx|Extras|Templates)")
  98.   (set #HelpDir "Help")
  99.   (set #HelpDirOS2 "Help_OS2")
  100.   (set #AutoOpenDir "AutoOpen" )
  101.   (set #MacroOS2Help "Sheets3/Macro_Help_for_OS2_b.TCD" )
  102.  
  103.  
  104.   (set #AskDestDir
  105.    (cat "Please choose the destination directory for the TurboCalc "
  106.         "software package. "
  107.         "A new directory named 'TurboCalc' will be created automatically." )
  108.   )
  109.   (set #AskDestDirHelp
  110.    (cat "To install TurboCalc, you will need at least 1.5 Megabytes "
  111.         "on the destination device.\n\n"
  112.         "The Installer will automatically create a new directory "
  113.         "'TurboCalc' in the selected path. All files will be copied to "
  114.         "this directory.\n\n"
  115.         "If you wish, you can rename the directory after the installation." )
  116.   )
  117.   (set #WhichPartsPrompt
  118.    (cat "Please choose from the list below which optional "
  119.         "parts you want to install:" )
  120.    )
  121.   (set #WhichPartsHelp
  122.    (cat "Mark the parts you want to install on your system:\n\n"
  123.         "Online-Help: Installs TurboCalc's AmigaGuide files "
  124.         "(recommended). (It is also possible to advice TurboCalc "
  125.         "to load the files directly from CD.)\n\n"
  126.         "PS-Fonts: Some PostScript fonts which can be used with "
  127.         "TurboCalc's PostScript output.\n\n"
  128.         "Examples: Installs all Examples and templates\n\n" )
  129.    )
  130.   (set #WhichPart1 "Online-Help")
  131.   (set #WhichPart2 "Examples")
  132.   (set #WhichPart3 "PS-Fonts")
  133.   (set #WhichPart4 "Programmer Information")
  134.  
  135.  
  136.  )
  137. )
  138.  
  139. ; ---------------------------------------------------------------------
  140. ;
  141. ;   STRINGS (Italian)
  142. ;
  143. ; ---------------------------------------------------------------------
  144.  
  145. (if (= @language "italiano")
  146.  (
  147.   (set #SourceDir "TurboCalcCD:Italiano/TurboCalc")
  148.   (set #TCLocalePattern "(ApriSubito|Leggimi|Contenuto)")
  149.   (set #ExamplePattern "(Fogli#?|Corso|ARexx|Extras)")
  150.   (set #HelpDir "Aiuto")
  151.   (set #HelpDirOS2 "Aiuto_OS2")
  152.   (set #AutoOpenDir "ApriSubito" )
  153.   (set #MacroOS2Help "Fogli3/Macro_Aiuto_OS2_b.TCD" )
  154.  
  155.  
  156.   (set #AskDestDir
  157.    (cat "Scegli la directory dove vuoi installare il pacchetto software "
  158.         "TurboCalc. "
  159.         "Lì sarà creata automaticamente una nuova directory 'TurboCalc'." )
  160.   )
  161.   (set #AskDestDirHelp
  162.    (cat "Per installare TurboCalc, devi avere almeno 1.5 Mbyte "
  163.         "sul dispositivo di destinazione.\n\n"
  164.         "Il programma Installer creerà automaticamente una nuova directory "
  165.         "'TurboCalc' nel percorso selezionato. Tutti i file saranno copiati "
  166.         "in tale directory.\n\n"
  167.         "Puoi anche cambiare il nome della directory dopo l'installazione." )
  168.   )
  169.   (set #WhichPartsPrompt
  170.    (cat "Scegli dall'elenco qui sotto quali parti opzionali "
  171.         "desideri installare:" )
  172.    )
  173.   (set #WhichPartsHelp
  174.    (cat "Indica le parti che vuoi installare sul tuo sistema:\n\n"
  175.         "Aiuto in linea: per installare i file AmigaGuide di TurboCalc "
  176.         "(raccomandato). E' anche possibile far sì che TurboCalc "
  177.         "carichi tali file direttamente da CD.\n\n"
  178.         "Caratteri PS: alcune famiglie caratteri PostScript da usare "
  179.         "per l'uscita di stampa PostScript di TurboCalc.\n\n"
  180.         "Esempi: per installare i file di esempio e i modelli\n\n" )
  181.    )
  182.   (set #WhichPart1 "Aiuto in linea")
  183.   (set #WhichPart2 "Esempi")
  184.   (set #WhichPart3 "Caratteri PS")
  185.   (set #WhichPart4 "Informazioni per programmatori (solo in Inglese)")
  186.  
  187.  
  188.  )
  189. )
  190.  
  191. ; ---------------------------------------------------------------------
  192. ;
  193. ;   STRINGS (French)
  194. ;
  195. ; ---------------------------------------------------------------------
  196.  
  197. (if (= @language "français")
  198.  (
  199.   (set #SourceDir "TurboCalcCD:Français/TurboCalc")
  200.   (set #TCLocalePattern "(OuvertureAuto|Lisez.moi|Contenu)")
  201.   (set #ExamplePattern "(Feuilles#?|Tutoriel|ARexx|Extras|Garbarits)")
  202.   (set #HelpDir "Aide")
  203.   (set #HelpDirOS2 "Aide_OS2")
  204.   (set #AutoOpenDir "OuvertureAuto" )
  205.   (set #MacroOS2Help "Feuilles3/Macro_Aide_sous_OS2_h.TCD" )
  206.  
  207.  
  208.   (set #AskDestDir
  209.    (cat "Veuillez choisir le répertoire dans lequel vous désirez "
  210.         "installer TurboCalc. "
  211.         "Le sous-répertoire 'TurboCalc', qui contiendra le programme "
  212.         "et d´autres fichiers, sera automatiquement créé." )
  213.   )
  214.   (set #AskDestDirHelp
  215.    (cat "Vous devez disposer d´une capacité de 1,5 Moctets sur l´unité choisie "
  216.         "pour installer TurboCalc.\n\n"
  217.         "Le programme d´installation crée un sous-répertoire ´TurboCalc´ "
  218.         "dans le répertoire choisi et copie tous les fichiers de TurboCalc "
  219.         "dans ce répertoire.\n\n"
  220.         "Vous pouvez bien sûr renommer ce répertoire après l´installation. "
  221.         )
  222.   )
  223.   (set #WhichPartsPrompt
  224.    (cat "Veuillez choisir parmi la liste ci-dessous les éléments facultatifs "
  225.         "que vous désirez installer :" )
  226.    )
  227.   (set #WhichPartsHelp
  228.    (cat "Cochez les éléments que vous désirez installer sur votre système :\n\n"
  229.         "Aide en ligne : installe les fichiers AmigaGuide de TurboCalc "
  230.         "(recommandé). (Il est également possible de demander à TurboCalc "
  231.         "de rechercher ces fichiers directement sur le CD-ROM.)\n\n"
  232.         "Polices PS : quelques polices PostScript qui peuvent être utilisées "
  233.         "pour les sorties PostScript de TurboCalc.\n\n"
  234.         "Exemples : installe tous les exemples et gabarits.\n\n" )
  235.    )
  236.   (set #WhichPart1 "Aide en ligne")
  237.   (set #WhichPart2 "Exemples")
  238.   (set #WhichPart3 "Police PS")
  239.   (set #WhichPart4 "Programmer Information (en anglais uniquement)")
  240.  )
  241. )
  242.  
  243. ; ---------------------------------------------------------------------
  244. ;
  245. ;   INSTALLATION SCRIPT - BEGIN
  246. ;
  247. ; ---------------------------------------------------------------------
  248.  
  249.  
  250. ;*** get OS version
  251. (set #osversion 3)
  252. (if (< (/ (getversion) 65536) 39) (set #osversion 2) )
  253. (if (< (/ (getversion) 65536) 36) (set #osversion 1) )
  254.  
  255.  
  256. ;**** ask user where to put TurboCalc
  257.  
  258. (set DestDir
  259.  (askdir
  260.   (prompt #AskDestDir )
  261.   (help #AskDestDirHelp )
  262.   (default "Work:")
  263.  )
  264. )
  265.  
  266. ;**** ask user which parts to copy (expert only)
  267. (complete 3)
  268. (set whichparts 7)  ; default: Part1 - Part3, not Part4
  269. (if (> @user-level 1)
  270.  (
  271.     (set whichparts
  272.       (askoptions
  273.         (prompt #WhichPartsPrompt)
  274.         (help #WhichPartsHelp)
  275.         (choices #WhichPart1 #WhichPart2 #WhichPart3 #WhichPart4)
  276.         (default whichparts)
  277.       )
  278.     )
  279.  )
  280. ) ; if (userlevel)
  281.  
  282. (set installhelp (IN whichparts 0))
  283. (set installexamples (IN whichparts 1))
  284. (set installpsfonts (IN whichparts 2))
  285. (set installprogrammer (IN whichparts 3))
  286.  
  287. ;****
  288.  
  289. (set RealDest (tackon DestDir "TurboCalc"))
  290.  
  291. (set RealDest_Help (tackon RealDest #HelpDir))
  292.  
  293. (if (= (exists RealDest) 0)
  294.  (makedir RealDest (infos))
  295. )
  296.  
  297.  
  298. ; *** copy main programm
  299. (complete 5)
  300.  
  301. (copyfiles
  302.  (source #SourceDir)
  303.  (dest RealDest)
  304.  (pattern #TurboCalcPattern)
  305.  (infos)
  306. )
  307.  
  308. (complete 20)
  309. (copyfiles
  310.  (source #SourceDir)
  311.  (dest RealDest)
  312.  (pattern #TCSupPattern)
  313.  (infos)
  314. )
  315.  
  316. (complete 30)
  317. (copyfiles
  318.  (source #SourceDir)
  319.  (dest RealDest)
  320.  (pattern #TCLocalePattern)
  321.  (infos)
  322. )
  323.  
  324.  
  325. ; *** copy help files
  326. (complete 40)
  327.  
  328. (if installhelp
  329.  (
  330.     (if (= (exists RealDest_Help) 0)
  331.      (makedir RealDest_Help (infos))
  332.     )
  333.  
  334.     (copyfiles
  335.      (source (tackon #SourceDir
  336.         (if (>= #osversion 3) (#HelpDir) (#HelpDirOS2))
  337.      ))
  338.      (dest RealDest_Help)
  339.      (all)
  340.      (infos)
  341.     )
  342.  
  343.     ; *** copy "help with os2" automacro to autoopen drawer
  344.     (if (< #osversion 3)
  345.      (
  346.       (copyfiles
  347.        (source (tackon #SourceDir #MacroOS2Help))
  348.        (dest (tackon RealDest #AutoOpenDir))
  349.       )
  350.      )
  351.     ) ; if os2
  352.  )
  353. ) ; if (installhelp)
  354.  
  355.  
  356. ; *** copy example files
  357. (complete 60)
  358.  
  359. (if installexamples
  360.  (
  361.     (copyfiles
  362.      (source #SourceDir)
  363.      (dest RealDest)
  364.      (pattern #ExamplePattern)
  365.      (infos)
  366.      (optional "nofail")
  367.     )
  368.  )
  369. ) ; if (installexamples)
  370.  
  371.  
  372. ; *** copy ps files
  373. (complete 70)
  374.  
  375. (if installpsfonts
  376.  (
  377.     (copyfiles
  378.      (source #SourceDir)
  379.      (dest RealDest)
  380.      (pattern #PSFontPattern)
  381.      (infos)
  382.      (optional "nofail")
  383.     )
  384.  )
  385. ) ; if (installpsfonts)
  386.  
  387.  
  388. ; *** copy programmer files
  389. (complete 85)
  390.  
  391. (if installprogrammer
  392.  (
  393.     (copyfiles
  394.      (source #SourceDir)
  395.      (dest RealDest)
  396.      (pattern #ProgrammerPattern)
  397.      (infos)
  398.     )
  399.  )
  400. ) ; if (installprogrammer)
  401.  
  402. ; *** copy newtopaz font to FONTS:
  403.  
  404. (complete 95)
  405.  
  406. (copyfiles
  407.  (source ":Fonts")
  408.  (dest "FONTS:")
  409.  (all) (fonts)
  410.  (optional "nofail")
  411. )
  412.  
  413.  
  414.  
  415. (set @default-dest RealDest)
  416.  
  417. (complete 100)
  418.  
  419. ; ---------------------------------------------------------------------
  420. ;
  421. ;   INSTALLATION SCRIPT - END
  422. ;
  423. ; ---------------------------------------------------------------------
  424.  
  425.